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FACILITY: SYSTST (SATS SYSTEM SERVICE TESTS) 
ABSTRACT: 


THE SUCCOMMON MODU 
LINKED WITH EACH OF THE opus 


T MO 
ULES SATSSS._.EXE TO TEST SUCC 
SERVI THE SUCCOMMON MODULE C VERAL COMMON SUBROUTINES 
USED BY EACH OF THE SATSSS._ MOD US THE SUCCOMMON ROUTINE, 
WHICH DISTRIBUTES CONTROL “0 ALL SUBROUTINES. 


ENVIRONMENT: USER MODE IMAGE; NEEDS CMKRNL PRIVILEGE, 
DYNAMICALLY ACQUIRES OTHER PRIVILEGES, AS NEEDED. 


AUTHOR: THOMAS L. CAFARELLA, CREATION DATE: APR, 1977 
MODIFIED BY: 


« + VERSION 
01 - 


" PB ear” than 7. A were 


ONTA 
SAT HE T 
PERATTON of THE Ans SYSTEM 


ES 

FUL 

INS 
PL 


“o>— 
- 


LE C 
MODUL 
ESS 

TAIN 
DULES 


DOONAN WN SO ODO NAMN EWN = S OD NOUN EWN SO OD NOAUE U  OOODNOUE 


Sete Se Se Ge Ge Se Se Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Se Se 
> 4 


SSSSSSSSSSSSSSSSSSSSSSS3S3S3333333333 
SOoOCOCSCSCSOOSOOOOSSOSOSOSOSOOOSOSOSOOOSOOSOOO 


Wy ot ot at ot at ot at 


4 


SATS TER SERVICE TESTS COMMON S duce 16-SEP=1 4:29 VAX/VMS Macro V04-00 Pa 
BECLARAT IONS BrSee ri obe be stersa PORCHES Bache vORROO un. Page of, 
# .SBTTL DECLARATIONS 
bi : INCLUDE FILES: 
2 , SSTSDEF i DEFINE MSG CODE SYMBOLS 
SUE TPDEF NERATE UETP MESSAGE DEFS 
SSHR_MESSAGES UETP,116,<<TEXT, nose’ ; DEFINE UETPS_TEXT MSG 
60 : MACROS: 
; EQUATED SYMBOLS: 
5 WARNING = 0 ; WARNING SEVERITY VALUE 
: SUCCESS == 1 + SUCCESS SEVERITY VALUE 
ERROR = : ; ERROR SEVERITY VALUE 
8 INFO = > INFORMATIONAL SEVERITY VALUE 
0 0 $ SEVERE =4 ; SEVERE (FATAL) SEVERITY VALUE 
00082 0 BUFFL = 130 ; LENGTH OF FAO OUTPUT BUFFER 
900¢ 0 71 CMPC_S == 4M<R2,R3> EGISTER SAVE MASK FOR CMPC INSTRUCTION 
00007F FF 909 i RO_T TARU. SP == “M<RO, Ri R2,.R3,R4,R5, ie R7,R8,R9,R10,R11,AP,FP,SP> 
0900 74 OWN STORAGE: 
000 75: 


5 
sys Connon sete abit Teh Seavice TESTS COMMON (SUCC 19-8 S o- 1980 BP: $382 ; Rates Be 


000 7 -PSECT ROD COMM, RD, zNOWRT /NOEXE ,LONG 
FFFFFFFF FFFFFFFE : ONES: bORG = ; A QUADWORD OF 1 BITS 
TES “MOD_BEG: § RING ¢ "ee gun> : DISPOSITION FIELD OF TEST MOD MSG 
0 TEST“MOD-SUCC:: STRIN 5 cesstul> ; DISPOSITION FIELD OF TEST MOD MSG 
TEST“MOD"FAIL: STRING ; DISPOSITION FIELD OF TEST MOD MSG 
‘ MSGg-CND_CTL : STRING ee ‘acd ; FIRST FORM OF MSG2 
MSGO-CND“CTL2: STRING fH « jac ARGUMEN T; 'AC: !AS> 
4 SECOND FORM OF MSG2 
5 MSG2_CND_CTL3: STRING 1,<!15* !AC ARGUMENT: ‘AC: '#CAXL)> 
F : ; THIRD FORM OF MSG2 
7F NOTE MSG3_ERR_CTL IS IN A DIFF PSECT 
7F : MSG4_ERR_CTL1: STRING I,<!15® !AC vatue : 1 AS> 
A FIRST FORM FOR MSG4 
A MSG4_ERR_CTL2: STRING 1,<!15* !AC value: !@CAXL)> 
9 3 2ND FORM FOR MSG4 
3 ¢ EX STRING C,<EXPECTED> |: COUNTED STRING FOR MSG4 
C STRING (C.<RECEIVED> : COUNTED STRING FOR MS 
OCB 94 AP APE STRING (C,<APPROXIMATE PC> ; COUNTED STRING FOR MSG 4 
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MESSAGES TO SYSSOUTPUT ARE THE ONLY OUTPUT FROM SUCCOMMON. 
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FUNCTIONAL DESCRIPTION: 
§ 
T 
A 
H 
H 
C 
T 
( 
& 
E 
E 
N 
C 
L 
K 
I 
C 
E 
F 
U 
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$ RUN SATSSS__ 
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CALLING SEQUENCE: 
IMPLICIT OUTPUTS: 


INPUT PARAMETERS 
NONE 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS 
NONE 
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SUC COMMON ae 90:90:82 UETPSY.SRCJSUCCOMMON.MAR:1 © (2) 
4 ; THEY ARE OF THE FORM: 
1 : : tu RUE TP-S- SATSMS. Test MODULE SATSSS__ BEGUN ... (BEGIN MSG) 
187 : TP=S=SATSMS, TEST MODULE SATSSS-- SUCCESSFUL ... (END MSG) 
1 § ; HUE TPE SATSHS. TEST MODULE SATSSS~~ FAILED ... (END MSG) 
; XUETP=I-TEXT, ... (VARIABLE INFORMATION ABOUT A TEST MODULE FAILURE) 
131 : COMPLETION CODES: 
138 ; THE SUCCOMMON ROUTI NE TERM INATES WITH A SEXIT TO T 
194 ; OPERATING eySTER WITH A STATUS CODE DEFINED BY UETP _SATSMS. 
136 : SIDE EFFECTS: 
198 : NONE 
199 ; 
s SUCCOMMON : 
OFFC 90 5 «WORD “M<R2,R3,R4,R5,R6.R7.RB.R9 R10.R11> 
FFFB' 3 99 5 BSBW = TM_ SETUP : PERFORM TEST MODULE SETUP 
0000010 "EF 3 005 08 TsTB FFCAG ; Is ERROR BEING PROCESSED ? 
3} 900 10 i BRW TM_CU > YES == PERFORM TEST MODULE CLEANUP 
‘ : 
524 4 1 ea! cosh R2 ; POINT TO FIRST ELEMENT IN CONDITION 1 TAB 
J : 
0000010F "EF 9 1 14 -CLRB CONFLICT ; INDICATE NO CONDITION TABLE CONFLICT 
FFES* 01 15 BSBW CONDI : EXECUTE CONDITION 1 ROU 
0000010E "Ef 9 18 16 1S7B FFLAG : IS AN ERROR BEING PROCESSED ? 
' F 3 —s 
3} ; 18 we BRW COND1_CU > YES -- PERFORM CONDITION 1 CLEANUP 
0000010F "EF 5 : : f Ist CONFLICT ; WAS THERE A CONDITION TABLE CONFLICT ? 
NO Py 
31°00 5 é sa BRW COND1_CU : YES -- SKIP THIS ELEMENT IN CONDIT 1 TABLE 
‘ : 
534 4 Mi LoghRt R3 ; POINT TO FIRST ELEMENT IN CONDITION 2 TAB 
00000108 » EF 94 00 : ~" CLRB CONFLICT : INDICATE NO CONDIT ON TABLE CONFLICT 
FFCG" ; ii BSBW COND ; EXECUTE CONDITION 2 ROUTINE 
0000010 ' i ; 06 : : STB FFLAG : IAN ER ROR BEING PROCESSED ? 
at) 3 oe 
008F 7 i 4 : ee BRW COND2_CU : YES == GO PERFORM CONDITION 2 CLEANUP 
D0 : 
oro 5 i ? ; TSTB NFLICT > WAS THERE A CONDITION TABLE CONFLICT ? 
ve 3 es 
00 i 00 F 4 oa BRW COND2_CU : YES == SKIP THIS ELEMENT IN CONDIT 2 TABLE 
D0 : 
54 4 06 3 6 staat: ogbrt R4 ; POINT TO FIRST ELEMENT IN CONDITION 3 TAB 
ve : 
00000105 ° rer i D¢ 4 - CLR CONFLICT ; INDICATE NO. COND1T JON ON TABLE CONFLICT 
te 2 
0000010€' e g 05D 34 TSTB ss EFLAG : IS AN ERROR BEING PROCESSED ? 
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vOssb00. SUC COMMON eto 30: at i8e LOE TPSY.SRETSUCCOMMON. MAR: 1 . (1) 
64 1 3 4 BNEQ COND3_CU : YES == GO PERFORM CONDITION 3 CLEANUP 
OOOOOIOF'EF 9 4 TSTB CONFLICT 3 WAS THERE A CONDITION TABLE CONFLICT ? 
1 4 BNEQ COND3_CU 3: YES -- SKIP THIS ELEMENT IN CONDIT 3 TABLE 
D D re ont Loset ; POINT TO FIRST ELEMENT IN CONDITION 4 TAB 
00000108 °¢f 4 f 8 ~" CLRB CONFLICT ; INDICATE NO CONDITION TABLE CONFLICT 
FFBB' ; 4 BSBW COND 3 EXECUTE CONDITION 4 ROUTINE 
0000010€ "EF 7 8 TSTB EFLAG ; IS AN ERROR BEING PROCESSED ? 
-% 7 4 BNEQ COND4_CU 3 YES == GO PERFORM CONDITION 4 CLEANUP 
OOOOO1OF'EF 9 ; 0 TSTB CONFLT 3 WAS THERE A CONDITION TABLE CONFLICT ? 
4 1 1 BNEQ COND4_ : YES == SKIP THIS ELEMENT IN CONDIT 4 TABLE 
6 D4 8 ; amend Lope R6 ; POINT TO FIRST ELEMENT IN CONDITION 5 T 
0000010F "EF 4 A 54 ~~" CLRB CONFLICT ; INDICATE NO CONDITION TABLE CONFLICT 
FF6D" 39 55 BSBW COND 3 EXECUTE CONDITION 5 ROUTINE 
0000010€ 'EF 9 28 TSTB EFLAG :; IS AN ERROR BEING PROCESSED ? 
14 Mg 9 BNEQ CONDS_Cu ; YES <= GO PERFORM CONDITION 5 CLEANUP 
OOOOO1OF'EF 9 98 28 TSTB CONFLICT ; WAS THERE A CONDITION TABLE CONFLICT ? 
Ot 13 OA1 5 BNEQ CONDS CU : YES == SKIP THIS ELEMENT IN CONDIT 5 TABLE 
FFSA’ ; 0A3 60 BSBW VERIFY ; ISSUE SYSTEM SERVICE AND VERIFY IT 
FF57° 30 DAG 61 BSBwW VF Y_CLEANUP ; PERFORM VERIFY CLEANUP 
OOOOOO3SC'EF B86 ; $¢ sonnet ey TESTNUM ; GET NEXT TEST CASE NUMBER 
FF4E* 30 AF 64 ~"" BSBW CONDS_ CLEANUP 3 PERFORM CONDITION 5 CLEANUP 
FFCE 56 01 QOO00000'EF 9D oBe 99 ioens cyte COND5_H,#1,R6,CONDS_LOOP ; LOOP THRU CONDITION 5 TABLE 
FF41° 30 O0BC 6 ~"" BSBW COND4_CLEANUP 3 PERFORM CONDITION 4 CLEANUP 
FFA6 55 01 QOOO0000'EF 9D er 98 — cytes COND4_H,#1,R5,COND4_LOOP ; LOOP THRU CONDITION 4 TABLE 
FF34" 30 $69 $3 - ¢ COND3_ CLEANUP 3 PERFORM CONDITION 3 che 
FF7E 54 01 QO000000'EF 9D ore 4 eee cyte COND3_H,#1,R4,COND3_LOOP ; LOOP THRU CONDITION 3 TABLE 
FF27° 30 00D 7 “ BSBW COND2_ CLEANUP 3 PERFORM CONDITION 2 CLEANUP 
FF50 53 01 QOO00000'EF 9D 3 4 onl cyte COND2_H,#1,R3,COND2_LOOP ; LOOP THRU CONDITION 2 TABLE 
FFIA’ 30 i: 4 ~" BSBW COND1_CLEANUP 3 PERFORM CONDITION 1 CLEANUP 
FF22 52. 01 Q0000000'EF 90 OE6 f = ACBB COND1_H,#1,R2,COND1_LOOP ; LOOP THRU CONDITION 1 TABLE 
FFOD' 3 oF9 7 -"" BsBW TM_CLEANUP ; PERFORM TEST MODULE CLEANUP 
00000042"EF 01 #1C O1 F OF 0 INSV #17#STSS$V_INHIB_MSG,#1,MOD_MSG_CODE 
OFC 1 3; TNHIBIT PRINTING 
OFC 2 SEXIT_S MOD_MSG_CODE ; EXIT TO OPERATING SYSTEM WITH MSG CODE 
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WRITE_MSG2:: 


34+ 
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ST 
IN 
9 
9 
ae 
9 ; WRITE msc SUBROUTINE. THIS ROUTINE FORMATS (USING FAO) 
9 : AND PRINTS (USING PUTMSG MACRO) INFORMATION ABOUT THE 
; : CURRENT NELENENt FOR A PARTICULAR CONDITION TABLE. 
9 : INPUTS: 
9 : 8 MSG_A: A LONGWORD FIELD CONTAINING 
9 ; THE ADDRESS OF A COUNTED 
9 > 8 STRING FOR THE TITLE OF THIS 
3 7° CONDITION. 
88 : 8 MSG_B: A LONGWORD FIELD CONTAINING 
9 >t THE ADDRESS 10 A COUN NTED 
9 ; STRING FOR THE CURRENT PEXT 
; : ELEMENT FOR THIS CONDITION. 
03 ; MSG_CTXT: A BYTE FIELD CONTAINING THE 
9 ; 8 CONTEXT FOR THIS CONDITION 
09 ; AS DEFINED IN ITS CONDITION 
09 i TABLE. 
09 ; 8 MSG_DATA1: A LONGWORD FIELD CONTAINING 
09 ; THE ADDRESS OF RRENT 
9 > 8 DATA ELEMENT Fon" THIS CONDITION 
9 : 8 (ONLY FOR CONDITION 
3 : ARE SYSTEM SERVICE ARGUMENTS). 
88 : OUTPUTS: 
i 3 ¢ CONDITION MESSAGE IS PRINTED. 
i : PRARBAAAAAALAZALALALALELALSLAELESEE SEL E SESE RE REESE EEE ERE ERR R RES S OY 
$9 ; 
09 
11 
38 


00'8F  O00000DC'EF 91 CMPB ss MSG_C TXT, #NOTARG ; IS THIS CONDITION A S.S. ARGUMENT ? 
28 «12 BNEQU 1 YES == CONT NUE 
$FAO_S MSG2_CND_CTL1,FAO_LEN, FAD DESC. MSG A,MSG 
; SIMPLY PORMAT Text 
OOCcE 31 iat BRW WRITE_MSG2Xx ane “URitE MSG AND EXIT 
00° 8F 0000000¢ "EF CMPB NSG_ CTXT, #DESC ; Is THIS A STRING DESCRIPTOR ARGUMENT ? 
9 ff BNEQU : = CONTINU 
QOOOOOE9"EF  O00000DD'EF oD OV MSG_DATAI -- GIVE DESCRIPTOR ADDRESS TO FAO 


MOVL 
SFAO_S MSG2_CND_ eTesse TFAO_LEN, Fad. Desc MSG_A.MSG_B,MSG _C 
“FORMAT STRING RRGURERT 


a a st 8 4 9 bs a ss a ss bs — 2 a — so 2 —) ss tb a — 5 2 a es a a a tt a ae 


FP WAAAA AAA AANIDINIDININININININ — 3 3 3 3 3 BAQOODOOOOO0O000000000 0000000000000 


SOODNOA NEA 9 ODA UNE WIN 9 OD NA NE WIN 2 O OD NAME WN OOOO EW OODNOUS 
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i 
4 
7. 
008B =O s«31 78 208 BRW WRITE _MSG2x i «ee WRITE MSG AND EXIT 
setae §¥ 1 OOOOODD'EF 00 43 MOVL 36. DATA1,MSG_E ; GET DATA ADDRESS READY FOR FAO 
00° 8F seat 91 CMPB =CTXT, #QUAB ; DOES THIS pantket 1 HAVE QUAD content ? 
12 } BNEQU ; NO -- GO PROCESS ALL ore CONTEXTS 
9° EF GA MOVZBL # MSG. C 3; YES = a ATE 2 DATA Rng TO FORMAT 
ED‘EF GR 9A yrtte zm) >; .-. EACH 8 BYTES LONG LANK 
000000F 5 "EF FI°EF 4 (1 Al ADDL ah Atte E.MSG_F ; COMPUTE ADDR OF 2ND ITER FOR FAO 
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SUBROUTINES ety fi 90:34:82 UETPSY.SRCJSUCCOMMON.MAR:1 9° (1) 
1D «11 Yap i an BRB 40$ > ee. AND GO FORMAT MSG 
01 OA OAR 34 "  MOVZBL «#1, MSG_C ; INDICATE JUST 1 DATA, ITEM TO FORMAT 
C'EF 9A 186 44 MOV BL msG_ciRt MSG_D : GET CONTEXT READY 
D'EF CO C1 45 se ADDL 6-0 ,MS6_D + se. DOUBLE IT FOR ENG TH OF PRINTABLE DATA 
CC 13 SFAO_S MSG2_CND_CTL3,F FAD ~LEN FAO pest, MSG_A, - 
1 § 48 MSG_6,MSG_C,.MSG_D7aMSG_E 
4 : asc NON=STRING ARGUMENT MSG 
9 350 wRITE_MSG2x: 
O1F1 30 0 9 351 BSBW  OUTPUT_MSG ; WRITE FORMATTED CONDITION MSG 
05 020c 352 RSB + ... AND RETURN TO CALLER 
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$FAO_S MSG3_ERR_CTL.FAO_LEN,FAO_ DESC. afESTNUM 
FORM GENERAL E ERROR MSG 


m AND 
RETURN TO CALLER 
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3 ge 
§ ; * WRITE_MSG3 SUBROUTINE. THIS ROUTINE FORMATS AND 
O;* PRINTS A GENERAL ERRO OR M MSG. IT IS CALLED BY CODE 
13 . GENERATED IN THE EXPANSION OF THE ERR_EXIT MACRO. 
0 § ; * INPUTS: 
4; TESTNUM: A WORD FIELD CONTAINING THE 
5; CURRENT TEST CASE NUMBER. 
§ ; ® MSG_A A LONGWORD FIELD CONTAINING 
; * THE ADDRESS OF A QUADWORD 
0 8; * STRING DESCRIPTOR WHICH HAS 
0 9; TEXT DESCRIBING THE CURRENT 
8 s ® ERROR. 
; 5 
0 § 3 @ OUTPUTS: 
0 Z 3 @ ERROR MSG FORMATTED AND PRINTED. 
3 ® 
p 5 3 
0 $ 3 
° 8 
9 
3 0 
3 1 
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BSBW  OUTPUT_MSG . 
RSB : 
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3 CCOMMON SATS SYSTEM SERVICE TESTS COMMON (SUCC gos P=] 984 90 44 :29 AX/VMS Macro V04-00 Page 11 
-000 SUBROUTINES -SEP=19 4:86 LUETPSY. SREISUCCOMMON. MAR; 1 (1) 
: 3 WRITE_MSG4: 
5 es 
§ g PAAASAAAAALALALALALALALACALALLOCLALLASCL AEA Eee Eee aaa aaa 
3 ® 
8 ; WRITE_MSG4 SUBROUTINE. THIS ROUTINE FORMATS AND 
6 :* PRINTS MESSAGES | CONTAINING EXPECTED AND RECEIVED 
0; * R A DATA ITEM DISCOVERED TO BE IN ERROR 
6 31: a Bi VERIFY SUBROUTINE. A MESSAGE CONTAINING 
36 ; THE APPROXIMATE VALUE OF PC AT THE TIME OF ERROR 
93 3; ¢ 1S ALSO FORMATTED AND PRINTED. 
3 : INPUTS: 
3 : MSG_CTXT: A BYTE FIELD CONTAINING THE 
6 397: * CO NTEX Te FOR THE DATA ITEM 
? 38 3 : IN ERR 
6 400: EXPV: A QUADWORD FIELD CONTAINING 
6 401: THE EXPECTED VALUE FOR THE 
6 4 : ; DATA ITEM IN ERROR. 
0236 403; * 
6 404: RECV: A QUADWORD FIELD CONTAINING 
6 405: * THE RECEIVED VALUE FOR THE 
: 406 3 DATA ITEM IN ERROR. 
g ® 
0 6 208 : 8 PCV: A LONGWORD FIELD CONTAINING 
6 409: * THE VALUE OF pC A T OR SOON 
0236 410: AFTER THE ERROR 
0236 411; * 
0 6 41g ; OUTPUTS: 
0 6 413 : EXPECTED/RECEIVED/PC MESSAGES FORMATTED AND PRINTED. 
6 415 : PARRAALAAALASZALAAAALALLALAELESEEE SESE SESE SESE SESE E SESE SSCS ES, 
6 417; 
QOOOODE1"EF  O00000B9'EF dE 6 418 MOVAL EXP,MSG_A ; READY "EXPECTED'’ TEXT FOR FAO 
OOOO00ED "EF OFO'EF DE 0241 419 MOVAL EXPV,MSG_D : GET ADDR OF EXPECTED VALUE READY FOR FAO 
00' 8F 0000000¢ EF 9 4¢ 4 0 CHP MSG_CTXT,#DESC : Is FAILING DATA ITEM A STRING DESCRIPTOR ? 
OAE § 36 4 é SBWCWRITE NSG4_ 1 : YES == FOR WRITE EXPECTED STRING 
QOOODOE1"EF  O00000C2"EF DE 0259 4 MOVAL JMS : READY RECEIVED’ TEXT FOR FAO 
OOOOOOED'EF  00000101'EF DE 64 426 MOVAL RECV mst D : GET ADDR OF RECEIVED VALUE READY FOR FAO 
0095 6F 425 BSBW 3s WRITE Masta. 1 : FORMAT & WRITE RECEIVED STRING 
68 O11 te 4 b ie BRB 40$ : GO DO PC MESSAGE 
00'8F O00000DC'EF 91 0274 428  CMPB  MSG_CTXT,#QUAD : DOES FAILING DATA ITEM HAVE QUAD CONTEXT ? 
1c 12 O27¢ 429 BNEQU 208 : NO == HAN L OTHER CONTEXTS 
Q00000E5 "EF ; 9A 43 430 MOVZBL 4#2,MSG_B : YES == INDICATE t, DATA TERS TO FAO 
E9°EF 9A 431 WOVZBL “MSG >... EACH ONE 8 BYTES LONG + A BLANK 
000000F 1" EF ED'EF 04 (1 ¢ 4 ; ADDLS #4-MSG-D.MSG_E : GIVE ADDRESS OF eND ITEM TO FAO 
dD «11 38 4 ee BRB 30$ > se. AND GO FORMA 
Pt aoe 06005 Bc? OM Re fe OE ete SP CONTERT READY FOR FAD (OOO 
BOOSDOES' EF 4 ‘EF «CO aC 4 $ a ADDL, MSG"C,MSG_C ~ : ... DOUBLE CONTEXT TO GET PRINTABLE LENGTH 
0076 30 O2B7 4 3 " «BSBW = WRITE_MSG4_2 : FORMAT & PRINT EXPECTED VALUE OF DATA 


yet ° SERVICE TESTS 


TIN 
B 
C 
Dd 
D 
D 
D 
E 
F 
=| 
6 
6 
6 


= 
oOo 
ww 


YS NNOCCO MAO NNOAWO— & MHOOWPY 
PREP L RELL EPP REEL PP EPEES 
PPD Sass BS BB BL LEE 


MO ODNOUE WN OOONOUS TO 


COMMON (Succ a es ae Vl 9 


‘8? aes Macro 

4:34:56 CLUETPSY.SRCIS 

REC,MSG_A : GIVE ADDRESS OF ° 

RECY MSG_D + GIVE ADDR OF REC 

#4 M§G_D WSG_E + GIVE ADDR OF 2ND 

WRITE_ASG4_ ; FORMAT & PRINT R 

APC,MSG_A : READY 

#1,4SG_6 ; INDICATE JUST 1 DATA ITEM TO FA 
#8,MSG-C aus USING PRINT 

PCV,MSG_D : GIVE ADDRESS OF PC VALUE TO FAO 
WRITE _MSG4 2 + FORMAT & PRINT PC VALUE 


; RETURN TO CALLER 


MSG4_ERR_CTL1,FAO_LEN,FAQ_ DESC C.MSG_A MSG_D 
FORMA STRING 

OUTPUT_MSG cee AND P RINT IT 
+ RETURN TO CALLER 


MSG4_ERR_CTL2,FAO_LEN FAQ. DESC.MSG_A, - 
MSG_6,MSG_C,@MSG_DB,aMSG 


OF 
ED VALUE OF DATA 


2 FORMAT A wonesTaING DATA ITEM 


OUTPUT_MSG : se. AND P I 
: RETURN TO CALLER 


496 ; SAVE CONTENTS OF REGS R2 THROUGH R6 FOR USE BY CHMRTN 


497 ;: 
3 498 MOVAL REG_SAVE_AREA,R1 ; INITIALIZE R1 TO BEG OF AREA 
499 MOVL R2,TR1)+ 3; SAVE R 
0 MOVL R35,(R1)+ 3; SAVE R 
0 MOVL R4,(R1)+ 3; SAVE R4 
0 MOVL R5,(R1)+ 3; SAVE RS 
81 ? MOVL R6,(R1)+ i; SAVE R6 
$ ; RETURN TO CALLER 


RSB 
REST_REGS: : 
; RESTORE REGS R2 THROUGH R6 ... USED IN CHMRTN AND IN MODE MACRO 
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voes000 SUBROUTINES et 90:85 UETPSY.SRCJSUCCOMMON.MAR;1 (1) 
68 464 COMP_SC:: 
00000101 'EF 000000F 9" EF b 465 CMPL = EXPV,, RECV ; IS STATUS CODE THE ONE WE EXPECTED ? 
4 £6 466 BEQLU | COMP SCk ; YES == GO RETURN 
78 4 : <ONEXPECTED STATUS CODE FROM NON-SUBJECT SYSTEM SERVICE>,, ,PCV 
ce ‘ ‘nb win ; NO == ISSUE ERR_EXIT WITH PCV PARAMETER 
05 cC i is ae ; RETURN TO CALLER (SS_CHECK MACRO) 
CD «473: 
CD 474 PROCESS_ERR:: 
0000010€ "EF QI 20 CD 475 MOVB #1,EFLAG ; INDICATE AN ERROR HAS OCCURRED 
gonnpncarer g00ognrSrt Ge HEY STF RSM. HET tla ray rosaane: TAGLCAMETPSTLESTEMTQN Ug TEST CASES 
00000042" EF of 6 F 2 478 INSV  #ERROR,#0,#3,MOD_ASG_CODE ; ADJUST STATUS CODE FOR ERROR 
FETF B 47 BSBW = WRITE_MSG$ ; FORMAT & WRITE ERROR MSG 
FES F 480 BSBW = WRITE-MSG4 : WRITE EXP/REC/PC MSGS 
00000100" EF 481 TSTB sCFLA ; HAVE CONDITIONS ALREADY BEEN PRINTED ? 
3 12 7 & é BNEQ PROCESS_ERRX ; YES == JUST GO RETURN 
FCO4' 3 9 4 BSBW — FORM_CONDS : NO == PRINT THEM BEFORE RETURNING 
C 484 PROCESS_ERRX: 
05 C 485 RS ; «+. AND RETURN TO CALLER (ERR_EXIT MACRO) 
Q3FD 486 OUTPUT_MSG:: 
0 Fes 4 ; PRINT A MESSAGE FORMATTED BY FAO AND RETURN TO CALLER 
00000052"EF  O000004E'EF B80 D 490° MOVW  FAO_LEN,FAO_DESC ; SET UP ACTUAL LENGTH IN MSG BUFFER 
408 491 PUTMSG <#UETPS TEXT,#1,#FAO_DESC> ; PRINT THE MSG 
00000052"EF 0082 8F B0 410 49¢ mov #BUFFL,FAO_DESC ; «ee AND RESTORE BUFFER TO MAX LENGTH 
04 ‘ 494 SAVE_REGS:: 
4274495; 
7 
7 
4 
7 
A 
D 
E 
E 
E 
: 
8 
8 


E 

E 

E 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

0 

1 
4 
51 Q0000000°EF oD 4 
81 g DO 04 
1 D 4 
1 4 0D 4 
1 > ?» & 
56 OD 4 
0 4 
4 
4 
& 

4 

4 

4 


3 2 § AODODOOOO0O 


MEW CO OONOUES WN Oo 


51 Q0000000'EF oD MOVAL REG _SAVE_AREA,R1 : INITIALIZE R1 TO BEG OF AREA 
5 es , 4 MOVL (RIT+,R ; RESTORE R 
1 OD MOVL (R1)+,R ; RESTORE R 
4 Bs MOVL (R1)+,R4 ; RESTORE R4 
5 me. 5 f MOVL (R1)+*,R5 ; RESTORE R5 
6 1 2 & MOVL (R1)+,R6 ; RESTORE R6 
0 4 RSB ; RETURN TO CALLER 
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ES rSEp-1986 be :30:56 LUetPSt. seeaSuCcOMMON.mar;1 "2% {4 


04-000" SUBROUT 


HALT_TC: 


os 


HALT FURTHER E 
INDEX REGISTER 
CONDITIONS. 


MOVB Re, COND 


muon 
- 
o 
= 
—_ 
2 

oo 

Ps) 
o 
Cc 
» 
P 
Mm 
2 
“— 


LDS F 


4 TABLE TO CURR 
5 TABLE TO CURR 


Anew 
Sete Ge Ge Ge Ge 
»>>>>> 
La a 


oo 


RSB 
MOD _MSG_PRINT:: 
PPP PPPS PTT IPT i Piri rir irri iii titi iiviiiiiiiiiiitiiiiit, 


. * 
* PRINTS THE TEST MODULE BEGUN/SUCCESSFUL/FAILED MESSAGES * 
® (USING THE PUTMSG MACRO). * 

* 


PPPS SPSS T PTI PTT Tri rrr iii iii iiiiiiiiiiiiiiiiy) 
PUTMSG <MOD_MSG_CODE,#2,TMN -ADOR, Ro PRINT RSS 
RSB : se. AND RETURN TO CALLER 


SOOO NAA ITs 


ooy 


tHMRTN: 


panousesnuaennnensbondeetannbonsenatdencneeteeseestebaones 


® 
we MODE ROUTINE. THIS at Me eer a WHENEVER 


Sl al ek ek ake el eh ek tek ek ek ek ek ek ek al ak de ek ak ae eke ke ne a 


oovono 
VILAMINE & OODDOOOOOOOOO— PWM Nn Zt 


FRR 


P>PrPrProononownownowvnowowowvowvovo 


OOOO PH NMA 


UP BY MODE. IT HAS THE EFFECT 
OF RETURNING TO THE END OF THE MODE MACRO EXPANSION. 


LAR RRAAAAAAAALALAALAAA SALSA SESE SES ASSESSES ER EEE SR RR EER EAS SS | 


We 

® 

« BY THE MODE M 

* REGISTERS R2 THROUGH R6 AND BOE ® A JUMP INDIRECT 
* N A FIELD SET 

& 

ad 

® 


-WORD 0 ; ENTRY MASK 
BSBW REST_REGS ; RESTORE REGS R2-R6 
JMP @CHM_ CONT ; RETURN TO MODE MACRO IN NEW MODE 
* RET INSTRUCTION WILL BE ISSUED IN EXPANSION OF ‘MODE FROM, ....° MACRO 


- END SUCCOMMON | 


65 
61 
65 


Petts leal alta ea lal alate at et at ot a ee ee 
OOD NOA MNES WN 0 ODNO NE WIN 0 OB NONE WH "0 OO NOUS UP" OOO~ 


RIS FS 


NNO 
mov 
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Symbol table g-36F 138e 90:34:82 UETPSY.SRCJSUCCOMMON.MAR; 1 1) 
4 MSG4_ERR_CTL 7F R 

SSE tHaRS . . meee “ERIE TLS 9A . 
SSSSTRINGS ~ mee-p f RG 

$1 . mSGrC E> R 

Apt : 0 ~ DC RG 

APC 2 MSG_CTXT oc R 
BUF FL s MSG_D oe. 

CFLAG 3 MSG_DATAI DD R 

CHR CO 3 mSccF ‘SR 
CmPC_SAV = ‘ WOTRRG sosonnen ag” 3 
OnP 4 oN Feut MSG 8 96 RG 
COMP~SCX ‘ 05 Re ; 
CONDT eereenree xX 4 PCV 3 09 RG ; 
COND1_ CLEANUP eereeeee 8 4 PROCESS_ERR 50003¢0 R 4 
COND} CU eeeeeet . x r +1) pean aeeeeeee § X 4 
COND 1 COOP 00000012 R 4 RO THRU_SP = 90 ree a . 
ees peceeees " ee 000 163 RG ¢ 
COND2_ CLEANUP eerreeee 4 RECV Sp00T8) R ; 
COND2- CU 00000006 R 4 REG_SAVE_AREA 900000 R. ; 
COND2-H eeereeee = § X 4 REST_REGS 49 4 RG ° 
COND2- LOOP 00000033 R , r SAVE REGS : 2006 i 

i ® 

EOND CLEANUP eeeeeeee § x 4 SHRSK_SHRDEF = 000 00 i 

COND3-CU 000000C9 R 4 SHR$_TEXT . 90 {30 

COND3-H eeeereee x 4 STS$0_INHIB_MSG = POpn0OI 
COND3-LOOP 00000054 R 4 SUCCESS 300 OOt os 
COND4~ eeeeenee xX 4 SUCC +454 45s a 
eowpee0 Gooooest n* fe SYA! SH 
ae So a i A SHS ee 
; — Sesseste K 4 TEST_MOD_FAIL 90000019 a , 03 
coe CLEANUP eeneeree = § 4 TEST_MOD_NAME seeaeee Be 
COND5~ CU OOOOOOAF R 4 TEST-MOD_SUCC OF RG 

COND 9“ eeeeeere xX 4 THO ROOR 98 ° aR 
fOnreTer boo0s;OF RG Of TANCLEANUP Seseceet a 
CONFLICT 10F RG 3 4 scsasere & r 
Hee soooeiae wo” S$ TL gorree", g 
EXP ’ Ue Tpeient = Bonet 33 

ee 4 VERIFY geeeeeee x 0% 
EXPV RG ANUP geereeee K 4 
FAO_DESC RG VEY CLE NU i : 

FAO LEN E RG WARRING $9 ¢ 8 a a 
FORA _cONDS eereeeee x 4 WRITE_MSG ze r 
a Pag a URITE-mscs DR OG 
LTBSSIGNAL ” seeeenee x WRITE-MSG4 6 R ° 
ie 00000042 ac. 3 URITERSGG I R 4 
ROOT ASe PRAT $8 RG 4 WRITE-MSG4-2 OR 4 

_CNB_CTL1 R 
aS ~tNDACTLG 4 
MSCSTERRCTL seoveses i 


SUC COMMON SATS SYSTEM SERVICE TESTS COMMON N cfuce — $ ath 9 9: $¢: $? AX/VMS Macro V04- 


Psect synopsis 


Goeeeeeecoceeooecons> 


! Psect synopsis ! 


ii oes 


PSECT name Allocation PSECT No, Attributes 
. ee 8 ( = 9 9. NOPIC USR CON ABS SHR NOEXE NORD NOWRT NOVE 
SABS ( a] NOPIC USR CON ABS RD 
ROD _ COMM DA ( 218.) ¢ | } NOPIC USR CON” REL 
RWD_ COMM i8 ( S ») ( -) NOPIC USR CON REL SHR NOEXE RD 
SUC COMMON AO ( 1184.) 04 ¢ 4.) NOPIC USR CON” REL NOSHR EXE’ RD 
tree eee meer ese emacs enc ewe ne } 
H Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization HH 700.09 : 30 
gomnene processing 136 : $8 : 66 
Syabol table sort :00:00. :00. 
126 :00: 8), 45 
ed table output 14 :00:00. .09 
Psect synopsis output ° :00:00. 
Cross-reference output -00 :00:00. 
Assembler run totals 534 76 :00:16.11 


The working (3 Limit was 1350 pages. 
29666 weet pages) of virtual memory were used to buffer the intermediate code. 
There were 20 pages of symbol table space allocated to hold 265 non-local gre 4 local symbols. 
source Lines were read in Pass 1, producing object records in Pass 2. 
pages of virtual memory were used to define 18 macros. 


+ + 
! Macro Library statistics : 


} teary tinct eereeeoeoeeeooeses + 


Macro soeat? name Macros defined 
41 :CSHRLIBIUVETP. m8: ! 7 
et SYS 473, LIB.AL 
YSc IBISTARLET. FauB;2 
r325580u ‘a braries) 1 


363 GETS were required to define 15 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:SUCCOMMON/0BJ=0BJ$:SUCCOMMON MSRC$:SUCCOMMON/UPDATE=(ENHS$: SUCCOMMON) +EXECMLS$/LIB+SHRLIB$:UETP/LIB 


LCL NO C8 
LCL NOSH C8 
LCL NOSHR NOEXE RD NOWRT NOVEC LONG 
EL NO C 


Sani I, 


UVETPSY.S REIS SUCCOMMON. MAR ; 1 


73 
64 
6 
6 
6 


wins 
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